home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 June / Ahoy_Magazine_85-06_1985_Double_L.d64 / screen dump ii (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  982b  |  28 lines
  1. 1 rem before loading this program you must poke44,64:poke16384,0:new
  2. 5 s0 = peek(46)*256 + peek(45) : s1 = s0-210 : s2 = s0-150 : b = 8192
  3. 30 sys s1
  4. 100 for x = 0 to 319 step .4
  5. 105 y=int(100-(100*cos(x/05))*exp(-x/240))
  6. 150 char=int(x/8)
  7. 155 row=int(y/8)
  8. 160 line=y and 7
  9. 165 byte = b + row*320 + char*8 + line
  10. 170 bit=7-(x and 7)
  11. 175 poke byte,peek (byte) or (2^bit)
  12. 180 next x
  13. 190 get a$: if a$<>chr$(133) then 190
  14. 195 poke 251,0 : poke 252,32
  15. 200 for i = 0 to 7 : poke 2048+i,2^i : next
  16. 205 open4,4,5:cmd4:print chr$(10) chr$(10)
  17. 210 print chr$(27)"@":print chr$(27) chr$(51) chr$(16)
  18. 215 print"          ";
  19. 220 print"------------------------------------------------------"chr$(10)
  20. 225 forl=0 to 24:print chr$(27) chr$(76) chr$(250) chr$(2);
  21. 230 sys s2
  22. 265 print chr$(245) chr$(10);
  23. 270 next l:print chr$(27)"@"
  24. 275 print"          ";
  25. 280 print"------------------------------------------------------"
  26. 285 print#4,:close4
  27. 290 end
  28.